home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / pause.tst < prev    next >
Text File  |  1999-09-16  |  666b  |  29 lines
  1. a=1;
  2. deff('[x]=tata(y)','x=-y,write(%io(2),''enter quit''),pause,x=+20')
  3. xx=tata(10);
  4. quit;
  5. if 10+xx<>0 then pause,end
  6. b=2;
  7. deff('[x]=tata(y)',['x=-y'
  8.                  'write(6,''enter return'')'
  9.                  'pause'
  10.                  'x=+20'])
  11. xx=tata(0);
  12. return
  13. if 20-xx<>0 then pause,end
  14. deff('[x]=tata(y)','x=-y,write(6,''type x=resume(0)''),pause')
  15. xx=tata(40);
  16. x=resume(0)
  17. if xx<>0 then pause,end
  18. clear x
  19. text=['after quit '
  20.       'undefined variable x']
  21. deff('[x]=toto(n)',['v=100'
  22.                     'write(%io(2),text)'
  23.                     'pause'
  24.                      'x=n'])
  25. write(%io(2),'enter abort (after receiving this message:)')
  26. toto(0);
  27. abort
  28.  
  29.